*&---------------------------------------------------------------------*
*& Report  ZDEMO_CELL_COLORING_IN_FM_ALV
*&
*&---------------------------------------------------------------------*

REPORT  ZDEMO_CELL_COLORING_IN_FM_ALV.

TYPE-POOLS SLIS.

TYPES: BEGIN OF ty_TEMP_ekko,
        ebeln TYPE ekko-ebeln,
        aedat TYPE ekko-aedat,
        lifnr TYPE ekko-lifnr,
      END OF ty_TEMP_ekko.

TYPES: BEGIN OF ty_ekko,
        ebeln TYPE ekko-ebeln,
        aedat TYPE ekko-aedat,
        lifnr TYPE ekko-lifnr,
        CELL_TAB TYPE SLIS_T_SPECIALCOL_ALV,
      END OF ty_ekko.
DATA : WA_EKKO     TYPE TY_EKKO,
       IT_EKKO     TYPE TABLE OF TY_EKKO,
       WA_TEMP_EKKO TYPE TY_TEMP_EKKO,
       IT_TEMP_EKKO TYPE TABLE OF TY_TEMP_EKKO,
       IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE LINE OF SLIS_T_FIELDCAT_ALV,
       is_layout   type SLIS_LAYOUT_ALV.

*EBELN
  CLEAR WA_FIELDCAT.
        WA_FIELDCAT-FIELDNAME = 'EBELN'.
        WA_FIELDCAT-col_pos  = 1.
        WA_FIELDCAT-SELTEXT_M = 'Purchase Order No'.
        WA_FIELDCAT-key         = 'X'.
     APPEND   WA_FIELDCAT TO IT_FIELDCAT.

  CLEAR WA_FIELDCAT.
        WA_FIELDCAT-FIELDNAME = 'AEDAT'.
        WA_FIELDCAT-col_pos  = 2.
        WA_FIELDCAT-SELTEXT_M = 'Creation Date'.
     APPEND   WA_FIELDCAT TO IT_FIELDCAT.

  CLEAR WA_FIELDCAT.
        WA_FIELDCAT-FIELDNAME = 'LIFNR'.
        WA_FIELDCAT-col_pos  = 3.
        WA_FIELDCAT-SELTEXT_M = 'Vendor No'.
     APPEND   WA_FIELDCAT TO IT_FIELDCAT.

SELECT EBELN AEDAT LIFNR INTO TABLE IT_temp_EKKO FROM EKKO
                         UP TO 15 ROWS.

LOOP AT IT_TEMP_EKKO INTO WA_TEMP_EKKO.
     MOVE-CORRESPONDING WA_TEMP_EKKO TO WA_EKKO.
     APPEND WA_EKKO TO IT_EKKO.
ENDLOOP.

IS_LAYOUT-COLTAB_FIELDNAMe = 'CELL_TAB'.

DATA :      WA  TYPE LINE OF SLIS_T_SPECIALCOL_ALV,
            ITAB TYPE SLIS_T_SPECIALCOL_ALV.

WA-FIELDNAME = 'AEDAT'.
WA-COLOR-COL = 7.
WA-COLOR-INT = 1.
APPEND WA TO ITAB.

WA_EKKO-CELL_TAB  = ITAB.
MODIFY IT_EKKO FROM WA_EKKO TRANSPORTING CELL_TAB
      WHERE EBELN =  '3000000015' .

REFRESH ITAB.
CLEAR WA.

WA-FIELDNAME = 'LIFNR'.
WA-COLOR-COL = 3.
WA-COLOR-INT = 1.
APPEND WA TO ITAB.

WA_EKKO-CELL_TAB  = ITAB.
MODIFY IT_EKKO FROM WA_EKKO TRANSPORTING CELL_TAB
      WHERE EBELN =  '3000000010' .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
*   I_CALLBACK_PROGRAM                = ' '
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
   IS_LAYOUT                         = IS_LAYOUT
   IT_FIELDCAT                       = IT_FIELDCAT
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = IT_EKKO
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.